#!/usr/bin/perl -w
use 5.010;

$_="Hello there,neighbor!";
my($first,$second,$third)=/(\S+) (\S+),(\S+)/;
print "$second is my $third\n";